home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Item MB Quick & Easy 2.0
/
Item MB Quick & Easy 2.0.iso
/
mbfacad
/
lfw_25.lsp
< prev
next >
Wrap
Text File
|
1998-03-15
|
29KB
|
718 lines
;........ Laufwagen 25
(defun C:LFW-25V1 (/ P1 P2 P10 P11 P12 P13 P14 P15 P16 P17 L PWR PLR PWL PLL
E1 E2 E3 E4 E5 E6 BName Wi KK1 KK2)
(EAITmsg "mb_mld14" "\n\n" "021" "\n") ;LAUFWAGEN 25
(EAITvari)
(EAITvars)
(setvar "ORTHOMODE" 0)
(EAITbpt nil nil (strcat (EAITmg "mb_mld12" "017") " " (EAITmg "mb_mld10" "015") " ")) ; 1. Punkt (Return = relativ):
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(EAITbpt nil nil (strcat (EAITmg "mb_mld12" "018") " " (EAITmg "mb_mld10" "015") " ")) ;2. Punkt (Return = relativ):
(setq P2 (getpoint P1))
(if (= P2 nil)(setq P2 (EAITrpt)))
(setq Wi (angle P2 P1) ;Winkel zwischen Pick-pkt.
PWR (polar P1 (- Wi (EAITgib 90)) 20) ;E-Pkt Wellenklemmprofil rechts
PLR (polar PWR Wi 18) ;E-Pkt Lagereinheit rechts
PWL (polar P2 (- Wi (EAITgib 90)) 20) ;E-Pkt Wellenklemmprofil links
PLL (polar PWL (+ Wi (EAITgib 180)) 18) ;E-Pkt Lagereinheit links
P10 (polar (polar P1 Wi 116)(+ Wi (EAITgib 90)) 20) ;1.Pkt 1.Profillinie, E-pkt Abdeckkappe
P11 (polar P10 (+ Wi (EAITgib 90)) 40) ;1.Pkt 2.Profillinie
P12 (polar (polar P2 (+ Wi (EAITgib 180)) 116)(+ Wi (EAITgib 90)) 20) ;2.Pkt 1.Profillinie, E-pkt Abdeckkappe
P13 (polar P12 (+ Wi (EAITgib 90)) 40) ;2.Pkt 2.Profillinie
P14 (polar (polar P1 Wi 116)(+ Wi (EAITgib 90)) 36)
P15 (polar (polar P2 (+ Wi (EAITgib 180)) 116)(+ Wi (EAITgib 90)) 36)
P16 (polar (polar P1 Wi 116)(+ Wi (EAITgib 90)) 44)
P17 (polar (polar P2 (+ Wi (EAITgib 180)) 116)(+ Wi (EAITgib 90)) 44)
L (atof (rtos (distance P10 P12) 2 1)) ;Laenge des Profils
)
(setvar "ORTHOMODE" 0)
(setvar "OSMODE" 0)
(command EAITege (strcat EAITpfn "35002q1") PWR "" "" (EAITbig Wi) ;Wellenlklemmprofil
EAITege (strcat EAITpfn "35012v2") PLR "" "" (- (EAITbig Wi) 90)) ;Lagereinheit zentrisch
(setq kk1 (entlast))
(command EAITege (strcat EAITpfn "35002q1") PWL "" "" (+ (EAITbig Wi) 180) ;Wellenlklemmprofil
EAITege (strcat EAITpfn "35011v2") PLL "" "" (+ (EAITbig Wi) 90)) ;Lagereinheit exzentrisch
(setq kk2 (entlast))
(command EAITlay EAITlse "EAIT50" ""
EAITlin P10 P12 "") ;1. Profillenie
(setq E1 (entlast))
(command EAITlin P12 P13 P11 P10 ""
EAITlin P14 P15 ""
EAITlin P16 P17 ""
)
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4)
E6 (entnext E5))
(setq BName (EAITbnr))
(command EAITblo BName P10 E1 E2 E3 E4 E5 E6 ""
EAITege BName P10 "" "" ""
EAITege (strcat EAITpfn "02602s2") P10 "" "" (+ (EAITbig Wi)90)
EAITege (strcat EAITpfn "02602s2") P13 "" "" (- (EAITbig Wi)90)
)
(command EAITbks EAITbel kk1)
(EAITDBL "0035002") ;Wellenklemmprofil 25
(command EAITege (strcat EAITpfn "EAITinfo") '(12 -12) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035009") ;Welle 25
(command EAITege (strcat EAITpfn "EAITinfo") '(6 6) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035017") ;Befestigungssatz für Wellenklemmprofil 25
(command EAITege (strcat EAITpfn "EAITinfo") '(2 -25) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035013") ;Abstreif - und Schmiersystem 25
(command EAITege (strcat EAITpfn "EAITinfo") '(0 85) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035012") ;Lagereinheit 25z
(command EAITege (strcat EAITpfn "EAITinfo") '(30 60) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0002604") ;Profil 80x40
(command EAITege (strcat EAITpfn "EAITinfo") '(-73 42) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0002602") ;Abdeckkappe 80x40
(command EAITege (strcat EAITpfn "EAITinfo") '(-73 100) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(command EAITbks EAITbel kk2)
(EAITDBL "0035011") ;Lagereinheit 25e
(command EAITege (strcat EAITpfn "EAITinfo") '(-30 60) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(command EAITbks EAITbvo)
(command EAITbks EAITbvo)
(EAITvarz2)
(princ)
)
(defun C:LFW-25S1 (/ A NL P1 P2 P3 P10 P11 P12 Wi WL Pfang L L1 LOE1
E1 E2 E3 E4 E5 E6)
(EAITmsg "mb_mld14" "\n\n" "021" "\n") ;LAUFWAGEN 25
(EAITvari)
(EAITvars)
(setvar "ORTHOMODE" 0)
(setvar "OSMODE" 0)
(EAITmsg "mb_mld14" "\n " "008" ": ") ;Traeger-Profil:
(setq NL (entsel " "))
(EAITmsg "mb_mld14" "\n " "019" ": ") ;Profil-Außenlinie:
(setq P1 (entsel " "))
(setq P1 (cadr P1))
(EAITbpt nil nil (strcat " " (EAITmg "mb_mld14" "020") " " (EAITmg "mb_mld10" "015")" :")) ;Punkt auf Nutlinie: (Return = relativ):
(setq P2 (getpoint))
(initget 1)
(EAITmsg "mb_mld14" "\n " "023" " : ") ;Achsabstand
(setq A (getdist))
(while (< A 150)
(EAITmsg "mb_mld14" "\n " "024" " ! ") ;Achsabstand soll >= 150 sein
(setq A (getdist))
);while
(setq A (atof (rtos A 2 0))
A (/ A 2))
(setvar "ORTHOMODE" 0)
(setvar "OSMODE" 0)
(setvar "APERTURE" 4)
(setq P10 (osnap P1 EAITofend)
P11 (osnap P1 EAITofmit)
WL (angle P10 P11)
P1 (inters P10 P11 P2 (polar P2 (+ WL(/ pi 2)) 10) nil)
P3 (polar P1 (+ (angle P1 P2) Pi) -20)
)
(command EAITbks EAITbur P3
EAITbks EAITbz P2 P1
);BKS setzen
(setq P1 '(20 0)
P2 '(0 0)
Pfang '(20 11.875)
P10 (osnap Pfang EAITofend)
P11 (osnap Pfang EAITofmit)
L (* (distance P10 P11) 2)
L1 (distance P1 P10)
WL (angle P10 P11)
P12 (polar P10 WL L)
Wi (angle P12 P11)
)
(if (/= (cdr (assoc 2 (entget (car NL)))) nil) (command EAITurs NL))
(command EAITzom EAITzomi '(0 0 0) '(20.5 0) '(-66.5 0))
(if (/= (ssget '(4 2)) nil)
(command EAITloes '(4 2) "")
)
(if (/= (ssget '(-4 2)) nil)
(command EAITloes '(-4 2) "")
)
(if (/= (ssget '(-36 2)) nil)
(command EAITloes '(-36 2) "")
)
(if (/= (ssget '(20 2)) nil)
(command EAITloes '(20 2) "")
)
(command EAITzom EAITzov)
(command EAITege (strcat EAITpfn "35012d1") (list 0 A ) "" "" -90
EAITege (strcat EAITpfn "02602v2") (list 40 (+ A 40)) "" "" -90
EAITege (strcat EAITpfn "35012d1") (list 0 (- A)) "" "" -90
EAITege (strcat EAITpfn "02602v2") (list 40 (+(- A) 40)) "" "" -90
EAITlay EAITlse "EAIT50" ""
)
(if (not EAITpro8)(load (strcat EAITpfn "EAITpro8")))
(EAITpro8 "40x40" (list 40 (- A 40)) (-(* A 2) 80) (-(/ Pi 2)) (-(/ Pi 2)))
;------Linien des Profils neu zeichnen
(command EAITlin P10 (polar P10 WL (- L1 (+ A 60))) "")
(setq E1 (entlast))
(command EAITlin (list 20 (- A 60)) (list 20 (+(- A)60))""
EAITlin P12 (polar P12 Wi (- (- L L1) (+ A 60))) "")
(setq E2 (entnext E1) E3 (entnext E2))
(command EAITkop E1 E2 E3 "" '(-3.5 0) ""
EAITkop EAITwvo "" '(-7.5 0) ""
EAITkop EAITwvo "" '(-32.5 0) ""
EAITkop EAITwvo "" '(-36.5 0) ""
)
(if (/= LOE1 nil) (command EAITkop EAITwvo "" '(-40 0) "")
(command EAITkop EAITwvo "" '(-56 0) ""))
(command EAITlay EAITlse "EAITstpg" ""
EAITlin (polar (list 0 (cadr P12)) WL 5)
(polar (list 0 (cadr P10)) Wi 5) ""
)
(setq L (abs (rtos L 2 1)))
(EAITDBL "0035012") ;Lagereinheit 25z
(command EAITege (strcat EAITpfn "EAITinfo") (list -32 (+ A 42)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035013") ;Abstreif - und Schmiersystem 25
(command EAITege (strcat EAITpfn "EAITinfo") (list -32 (+ A 55)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0026523") ;Profil 160x40
(command EAITege (strcat EAITpfn "EAITinfo") (list 76 (- A 44)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos (-(* A 2)80) 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0002602") ;Abdeckkappe 80x40
(command EAITege (strcat EAITpfn "EAITinfo") (list 47 (+ A 32)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0002604") ;Profil 80x40
(command EAITege (strcat EAITpfn "EAITinfo") (list 47 (+ A 22)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035009") ;Welle 25
(command EAITege (strcat EAITpfn "EAITinfo") (list 8 (+ A 65)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035002") ;Wellenklemmprofil 25
(command EAITege (strcat EAITpfn "EAITinfo") (list 14.5 (+ A 65)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035017") ;Befestigungssatz für Wellenklemmprofil 25
(command EAITege (strcat EAITpfn "EAITinfo") (list 14.5 (+ A 80)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(command EAITbks EAITbvo )
(command EAITbks EAITbvo )
(EAITvarz2)
(princ)
);defun
(defun C:LFW-25D1 (/ A B D1 D2 D3 D4 E1 E2 E3 E4 E5 E6 E7 E8 E9 L L1 L2 L3 L4
P1 P2 P10 P11 P12 P13 P14 P15 P16 Pfang PL1 PL2 WL Wi)
(EAITmsg "mb_mld14" "\n\n" "021" "\n") ;LAUFWAGEN 25
(EAITvari)
(EAITvars)
(setvar "ORTHOMODE" 0)
(setvar "OSMODE" 0)
(EAITmsg "mb_mld14" "\n " "013" ": ") ;Erste Profil-Außenlinie:
(setq P1 (entsel " "))
(setq P1 (cadr P1))
(EAITbpt nil nil (strcat " " (EAITmg "mb_mld14" "014") ": " (EAITmg "mb_mld10" "015") ": " )) ;Punkt auf zweiter Profil-Außenlinie: (Return = relativ):
(setq P2 (getpoint))
(initget 1)
(EAITmsg "mb_mld14" "\n " "023" " : ") ;Achsabstand
(setq A (getdist))
(while (< A 150)
(EAITmsg "mb_mld14" "\n " "024" " ! ") ;Achsabstand soll >= 150 sein
(setq A (getdist))
);while
(setq A (atof (rtos A 2 0))
A (/ A 2))
(setvar "ORTHOMODE" 0)
(setvar "OSMODE" 0)
(setvar "APERTURE" 4)
(setq P10 (osnap P1 EAITofend) ;Endpunkt Außenlinie
P11 (osnap P1 EAITofmit) ;Mitte Außenlinie
WL (angle P10 P11) ;Winkel Außenlinie
P1 (inters P10 P11 P2 (polar P2 (+ WL(/ pi 2)) 10) nil) ;Pkt. Lotrecht zu P2
D1 (distance P1 P2) ;Abstand Profilaußenlinien
)
(command EAITbks EAITbur P2
EAITbks EAITbz P2 P1)
(setq P1 (list D1 0)
P2 '(0 0)
Pfang (list D1 11.875)
P10 (osnap Pfang EAITofend) ;1.Endpkt Außenlinie
P11 (osnap Pfang EAITofmit) ;Mitte Außenlinie
L (* (distance P10 P11) 2) ;laenge Außenlinie
L1 (distance P1 P10) ;Laenge von P1 zu AL
L2 (- L L1)
L3 (- L1 (+ A 60))
L4 (- L2 (+ A 60))
WL (angle P10 P11) ;Winkel AL
P12 (polar P10 WL L) ;2. Endpkt AL
Wi (angle P12 P11) ;Winkel AL um 180°
D2 (+ D1 32.5)
D3 (+ D1 24.5)
D4 (+ D1 18)
P13 (list D2 (cadr P10))
P14 (list D2 (cadr P12))
P15 (polar P13 WL L3)
P16 (polar P14 Wi L4)
PL1 (list D2 (- A 60))
PL2 (list D2 (+ (- A) 60))
)
;-------------Einfügen der Lagereinheiten
(command EAITege (strcat EAITpfn "35012s1") (list D1 A ) "" "" -90
EAITege (strcat EAITpfn "35012s1") (list D1 (- A)) "" "" -90
EAITege (strcat EAITpfn "35011s1") (list 0 A ) "" "" 90
EAITege (strcat EAITpfn "35011s1") (list 0 (- A)) "" "" 90
)
;-------------Welle u. Klemmprofil zeichnen
(command EAITlay EAITlse "EAIT50" ""
EAITlin P10 P13 ""
)
(setq E1 (entlast))
(command EAITlin P13 P15 ""
EAITlin PL1 PL2 ""
EAITlin P12 P14 P16 ""
EAITlin (list D3 (cadr P13))(list D3 (cadr P15)) ""
EAITlin (list D3 (cadr PL1))(list D3 (cadr PL2)) ""
EAITlin (list D3 (cadr P16))(list D3 (cadr P14)) ""
)
(setq E2 (entnext E1)E3 (entnext E2) E4 (entnext E3) E5 (entnext E4)
E6 (entnext E5) E7 (entnext E6) E8 (entnext E7)
)
(command EAITlay EAITlse "EAITstpg" ""
EAITlin (polar (list D4 (cadr P10)) Wi 5)
(polar (list D4 (cadr P12)) WL 5) ""
)
(setq E9 (entnext E8))
(command EAITspi E1 E2 E3 E4 E5 E6 E7 E8 E9 ""
(list (/ D1 2) 0)(list (/ D1 2) 5) EAITspn
)
;-----------Zeichnen des 160x40 wenn sichtbar
(command EAITlay EAITlse "EAIT50" "")
(cond
((equal D1 80 0.0001)
(command EAITlin (list (+ D1 40) (cadr PL1))(list (+ D1 40) (cadr PL2)) "")
(setq E1 (entlast))
(command EAITspi E1 ""
(list (/ D1 2) 0)(list (/ D1 2) 5) EAITspn
)
) ;1. COND-Fall
((equal D1 40 0.0001)
(command EAITlin (list (+ D1 36) (cadr PL1))(list (+ D1 36) (cadr PL2)) "")
(setq E1 (entlast))
(command EAITlin (list (+ D1 44) (cadr PL1))(list (+ D1 44) (cadr PL2)) ""
EAITlin (list (+ D1 60) (cadr PL1))(list (+ D1 60) (cadr PL2)) ""
)
(setq E2 (entnext E1) E3 (entnext E2))
(command EAITspi E1 E2 E3 ""
(list (/ D1 2) 0)(list (/ D1 2) 5) EAITspn
)
) ;2. COND-Fall
);cond
;------------Einfuegen der Info-Pkt.
(setq L (abs (rtos L 2 1))
B (abs (rtos (+ D1 232) 2 1))
)
(EAITDBL "0035012") ;Lagereinheit 25z
(command EAITege (strcat EAITpfn "EAITinfo") (list (+ D1 10) (+ A 42)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035011") ;Lagereinheit 25e
(command EAITege (strcat AI0T$pfn "EAITinfo") (list -10 (+ A 42)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035013") ;Abstreif - und Schmiersystem 25
(command EAITege (strcat EAITpfn "EAITinfo") (list -10 (+ A 55)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0026523") ;Profil 160x40
(command EAITege (strcat EAITpfn "EAITinfo") '(31 10) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos (-(* A 2)80) 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0002602") ;Abdeckkappe 80x40
(command EAITege (strcat EAITpfn "EAITinfo") (list 30 (- A 44)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0002604") ;Profil 80x40
(command EAITege (strcat EAITpfn "EAITinfo") (list 35 (- A 44)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 B (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035002") ;Wellenklemmprofil 25
(command EAITege (strcat EAITpfn "EAITinfo") (list -15 (+ A 65)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035017") ;Befestigungssatz für Wellenklemmprofil 25
(command EAITege (strcat EAITpfn "EAITinfo") (list -15 (+ A 80)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035009") ;Welle 25
(command EAITege (strcat EAITpfn "EAITinfo") (list -28.5 (+ A 65)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
)
(command EAITbks EAITbvo )
(command EAITbks EAITbvo )
(EAITvarz2)
(princ)
(setq Pfang nil PL1 nil PL2 nil WL nil Wi nil)
);defun
(defun C:LFW-25D2 (/ A B D1 D2 D3 D4 E1 E2 ELOE L Li L1 L2 L3 L4 LP1 LP2 LP3
N NL P1 P2 Pfang PL1 PL2 SS1 WL Wi)
(EAITmsg "mb_mld14" "\n\n" "021" "\n") ;LAUFWAGEN 25
(EAITvari)
(EAITvars)
(setvar "ORTHOMODE" 0)
(setvar "OSMODE" 0)
(EAITmsg "mb_mld14" "\n " "008" ": ") ;Traeger-Profil:
(setq NL (entsel " "))
(EAITmsg "mb_mld14" "\n " "013" ": ") ;Erste Profil-Außenlinie:
(setq P1 (entsel " "))
(setq P1 (cadr P1))
(EAITbpt nil nil (strcat (EAITmg "mb_mld14" "014") ": " (EAITmg "mb_mld10" "015"))) ;Punkt auf zweiter Profil-Außenlinie: (Return = relativ):
(setq P2 (getpoint))
(initget 1)
(EAITmsg "mb_mld14" "\n " "023" " : ") ;Achsabstand
(setq A (getdist))
(while (< A 150)
(EAITmsg "mb_mld14" "\n " "024" " ! ") ;Achsabstand soll >= 150 sein
(setq A (getdist))
);while
(setq A (atof (rtos A 2 0))
A (/ A 2))
(setvar "ORTHOMODE" 0)
(setvar "OSMODE" 0)
(setvar "APERTURE" 4)
(setq P10 (osnap P1 EAITofend) ;Endpunkt Außenlinie
P11 (osnap P1 EAITofmit) ;Mitte Außenlinie
WL (angle P10 P11) ;Winkel Außenlinie
P1 (inters P10 P11 P2 (polar P2 (+ WL(/ pi 2)) 10) nil) ;Pkt. Lotrecht zu P2
D1 (distance P1 P2) ;Abstand Profilaußenlinien
)
(command EAITbks EAITbur P2
EAITbks EAITbz P2 P1)
(setq P1 (list D1 0)
P2 '(0 0)
Pfang (list D1 11.875)
P10 (osnap Pfang EAITofend) ;1.Endpkt Außenlinie
P11 (osnap Pfang EAITofmit) ;Mitte Außenlinie
L (* (distance P10 P11) 2) ;laenge Außenlinie
L1 (distance P1 P10) ;Laenge von P1 zu AL
L2 (- L L1)
L3 (- L1 (+ A 60))
L4 (- L2 (+ A 60))
LP1 (+ D1 (* 116 2)) ;L Profil 80x40
LP2 (- (* A 2) 80) ;L Profil 160x40
LP3 (/ (- LP1 160) 2) ;L Ende Pro.80x40 - Pos Pro.160x40
WL (angle P10 P11) ;Winkel AL
P12 (polar P10 WL L) ;2. Endpkt AL
Wi (angle P12 P11) ;Winkel AL um 180°
D2 (+ D1 32.5)
D3 (+ D1 24.5)
D4 (+ D1 18)
P13 (list D2 (cadr P10))
P14 (list D2 (cadr P12))
P15 (polar P13 WL L3)
P16 (polar P14 Wi L4)
P17 (list -116 (- A 40))
P18 (list -116 (- (- A) 40))
P19 (polar P17 0 LP3)
PL1 (list D2 (- A 60))
PL2 (list D2 (+ (- A) 60))
)
;-------------Altes Traegerprofil löschen
(if (OR (equal D1 40 0.0001) (equal D1 80 0.0001) (equal D1 160 0.0001) )
(progn (if (/= (cdr (assoc 2 (entget (car NL)))) nil) (command EAITurs NL))
(setq ELOE (ssget EAITwkr '(-0.5 0.5)(polar P1 (/ Pi 4) 1)))
(command EAITloes ELOE "")
);progn
);if
;-------------Neues Traegerprofil zeichnen
(command EAITlay EAITlse "EAIT50" ""
EAITlin P10 (polar P10 WL (+ L3 20)) ""
)
(setq E1 (entlast))
(command EAITlin P12 (polar P12 Wi (+ L4 20)) "")
(setq SS1 (EAITSS E1))
(cond ( (equal D1 40 0.0001)
(setq LI '(16 24 40))
)
( (equal D1 80 0.0001)
(setq LI '(16 24 56 64 80))
)
( (equal D1 160 0.0001)
(setq LI '(16 24 56 64 96 104 136 144 160))
)
(T (setq LI (list D1)))
);cond
(foreach N LI
(command EAITkop SS1 "" (list (- N) 0) "")
);foreach
;-------------Profile zeichnen
(if (not EAITpro8)(load (strcat EAITpfn "EAITpro8")))
(EAITpro8 "80x40" P17 LP1 0 0)
(EAITpro8 "80x40" P18 LP1 0 0)
(EAITpro8 "160x40" P19 LP2 (-(/ Pi 2)) (-(/ Pi 2)) )
;-------------Welle u. Klemmprofil zeichnen
(command EAITlin P10 P13 "")
(setq E1 (entlast))
(command EAITlin P13 P15 ""
EAITlin P12 P14 P16 ""
EAITlin (list D3 (cadr P13))(list D3 (cadr P15)) ""
EAITlin (list D3 (cadr P16))(list D3 (cadr P14)) ""
EAITlay EAITlse "EAITstpg" ""
EAITlin (polar (list D4 (cadr P10)) Wi 5)
(polar (list D4 (cadr P12)) WL 5) ""
)
(setq SS1 (EAITSS E1))
(command EAITspi SS1 ""
(list (/ D1 2) 0)(list (/ D1 2) 5) EAITspn
)
(if (>= D1 160)
(progn
(command EAITlay EAITlse "EAIT50" ""
EAITlin PL1 PL2 "")
(setq E1 (entlast))
(command EAITlin (list D3 (cadr PL1))(list D3 (cadr PL2)) "")
(setq SS1 (EAITSS E1))
(command EAITspi SS1 ""
(list (/ D1 2) 0)(list (/ D1 2) 5) EAITspn
)
);progn
);if
;------------Zeichnen der Lagereinheiten
(command EAITbks EAITbur (list 0 A))
(command EAITlay EAITlse "EAIT50" ""
EAITlin '(-2 40) '(-2 56) ""
)
(setq E1 (entlast))
(command EAITbog '(-2 56) EAITbmi '(-6 56) EAITbwi 90
EAITlin '(-6 60) '(-116 60) ""
EAITbog '(-116 60) EAITbmi '(-116 56) EAITbwi 90
EAITlin '(-120 56) '(-120 -56) ""
EAITbog '(-120 -56) EAITbmi '(-116 -56) EAITbwi 90
EAITlin '(-2 50) '(-120 50) ""
EAITlin '(-16 40) '(-16 50) ""
EAITkop EAITwle "" '(-8 0) ""
EAITkop EAITwvo "" '(-40 0) ""
EAITkop EAITwvo "" '(-48 0) ""
EAITkop EAITwvo "" '(-80 0) ""
EAITkop EAITwvo "" '(-88 0) ""
)
(cond ( (OR (equal D1 40 0.0001)(equal D1 80 0.0001))
(command EAITlin '(-116 -60) (polar '(-116 -60) 0 LP3) ""
EAITlin '(-120 -50) (polar '(-120 -50) 0 (+ LP3 4)) ""
EAITlin '(-104 -40) '(-104 -50) ""
)
(setq E2 (entlast))
(command EAITkop EAITwle "" '(8 0) ""
EAITkop EAITwvo "" '(40 0) ""
EAITlay EAITlse "EAITstpg" ""
EAITlin '(-33 0) '(-93 0) ""
EAITlin '(-63 30)'(-63 -30) ""
)
(setq SS1 (EAITSS E1))
(if (equal D1 80 0.0001)
(progn (command EAITkop E2 "" '(48 0) ""
EAITlay EAITlse "EAITstpg" ""
EAITlin '(-33 0) '(-93 0) ""
EAITlin '(-63 30)'(-63 -30) ""
)
(setq SS1 (EAITSS E1))
);progn
);if
);1. COND-Fall
( (>= D1 160)
(command EAITlin '(-116 -60) '(-6 -60) ""
EAITbog '(-6 -60) EAITbmi '(-6 -56) EAITbwi 90
EAITlin '(-2 -56) '(-2 -40) ""
EAITlin '(-120 -50) '(-2 -50) ""
EAITlin '(-104 -40) '(-104 -50) ""
EAITkop EAITwle "" '(8 0) ""
EAITkop EAITwvo "" '(40 0) ""
EAITkop EAITwvo "" '(48 0) ""
EAITkop EAITwvo "" '(80 0) ""
EAITkop EAITwvo "" '(88 0) ""
EAITlay EAITlse "EAITstpg" ""
EAITlin '(-33 0) '(-93 0) ""
EAITlin '(-63 30)'(-63 -30) ""
)
(setq SS1 (EAITSS E1))
);2.COND-Fall
);cond
(command EAITbks EAITbvo)
(command EAITspi SS1 "" '(0 0) '(2 0) EAITspn
EAITspi SS1 "" (list (/ D1 2) 0) (list (/ D1 2) 2) EAITspn
EAITrei SS1 "" EAITrpo (list (/ D1 2) 0) "2" "" EAITrja
EAITlay EAITlse "EAITstpg" ""
EAITlin (list -64.5 (+ A 20)) (list -64.5 (- A 20)) ""
EAITlin (list -64.5 (+ (- A) 20)) (list -64.5 (- (- A) 20)) ""
)
;------------Einfuegen der Abdeckkappen
(command EAITege (strcat EAITpfn "02602s1") (list -116 (- A 40)) "" "" 90
EAITege (strcat EAITpfn "02602s1") (list (+ D1 116) (+ A 40)) "" "" -90
EAITege (strcat EAITpfn "02602s1") (list -116 (- (- A) 40)) "" "" 90
EAITege (strcat EAITpfn "02602s1") (list (+ D1 116) (+ (- A) 40)) "" "" -90
)
;------------Einfuegen der Info-Pkt.
(setq L (abs (rtos L 2 1))
B (abs (rtos (+ D1 232) 2 1))
)
(EAITDBL "0035012") ;Lagereinheit 25z
(command EAITege (strcat EAITpfn "EAITinfo") (list (+ D1 10) (+ A 42)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035011") ;Lagereinheit 25e
(command EAITege (strcat EAITpfn "EAITinfo") (list -10 (+ A 42)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035013") ;Abstreif - und Schmiersystem 25
(command EAITege (strcat EAITpfn "EAITinfo") (list -10 (+ A 55)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0026523") ;Profil 160x40
(command EAITege (strcat EAITpfn "EAITinfo") '(31 10) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos (-(* A 2)80) 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0002602") ;Abdeckkappe 80x40
(command EAITege (strcat EAITpfn "EAITinfo") (list -118 (- A 34)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0002604") ;Profil 80x40
(command EAITege (strcat EAITpfn "EAITinfo") (list 35 (- A 34)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 B (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035002") ;Wellenklemmprofil 25
(command EAITege (strcat EAITpfn "EAITinfo") (list -15 (+ A 65)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035017") ;Befestigungssatz für Wellenklemmprofil 25
(command EAITege (strcat EAITpfn "EAITinfo") (list -15 (+ A 80)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITDBL "0035009") ;Welle 25
(command EAITege (strcat EAITpfn "EAITinfo") (list -28.5 (+ A 65)) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
)
(setq P10 nil P11 nil P12 nil P13 nil P14 nil P15 nil P16 nil P17 nil P18 nil P19 nil)
(command EAITbks EAITbvo )
(command EAITbks EAITbvo )
(EAITvarz2)
(princ)
);defun D2
(princ)